home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Musik / Play / PlayGUI / PlayGUI < prev    next >
Encoding:
Text File  |  2000-05-27  |  54.1 KB  |  2,338 lines
  1. G4C;(c) PlayGUI by Richard Kapp 1999-2000 ; MUST BE IN THE FIRST(!) LINE
  2. ;Version 2.8
  3.  
  4. ;Getting started
  5.  
  6. WINBIG 380 357 275 116 "PLAYGUI V.2.8 (c) by Richard Kapp 1999-2000"
  7. wintype 01001000
  8. WINFONT XHelvetica.font 11 000
  9.  
  10.  
  11. ;Routinen
  12.  
  13. xROUTINE ENDE
  14.                 
  15.                 if $THEME = YES
  16.                 CLI 'C:run >NIL: $PLAY16PATH $TQUITSOUND'
  17.                 gosub PlayGUI ENDE2
  18.                 elseif $THEME = NO
  19.                 CLI 'C:run >NIL: $PLAY16PATH $QUITSOUND'
  20.                 gosub PlayGUI ENDE2
  21.                 endif
  22.  
  23.                 xROUTINE ENDE2
  24.  
  25.                 guiquit ShortInfo
  26.                 guiquit SYSInfo
  27.                 guiquit MiniPlay
  28.                 guiquit PGAbout
  29.                 guiquit Voreinstellung
  30.                 guiquit OptionConfig
  31.                 guiquit StartupConfig
  32.                 guiquit PathConfig
  33.                 guiquit P16Config
  34.                 guiquit SetVolume
  35.                 guiquit Themes
  36.                 guiquit QuickMenu
  37.                 guiquit Preview
  38.                 guiquit ThemeCreate
  39.                 guiquit ShowPattern
  40.                 guiquit ShowSkin
  41.                 guiquit PlayGUI
  42.  
  43.                 freeimage haut
  44.                 freeimage Barmod
  45.                 freeimage BarSam
  46.                 freeimage BarOpt
  47.                 freeimage BarVol
  48.                 freeimage GuiPattern
  49.                 freeimage ab
  50.  
  51.  
  52.        
  53.  
  54. xROUTINE choice
  55.        ezReq "No mod to play!" "Shut up!|Select a mod" what
  56.                 if $what = 1
  57.                 gosub PlayGUI Hopp
  58.                 else
  59.                 gosub PlayGUI SelectMod
  60.         endif
  61.  
  62. xROUTINE SelectMod
  63.  
  64.         ReqFile 0 0 200 400 "Choose a module..." LOAD module $MODPATH
  65.         ifexists FILE $module
  66.         extract module FILE mody
  67.         update PlayGUI 1 '$mody'
  68.         update PlayGUI 2 'Select mod'
  69.         a = loaded
  70.         else
  71.         ezreq "No mod selected" "I know!" jep
  72.         endif
  73.         
  74. ;Load new skin
  75.  
  76. xROUTINE NeuHaut
  77.  
  78.         ReqFile 0 0 200 -30 "Choose the skin directory..." DIR SKINSELECT #PlayGUI:Skins
  79.         gosub PlayGUI Wechsel
  80.         
  81. xROUTINE Wechsel
  82.  
  83.         Assign Skins: $SKINSELECT
  84.         IfExists FILE Skins:main.iff
  85.         THEME = NO
  86.         gosub PlayGUI Wechsel2
  87.         else
  88.         ezreq "Cannot find skin.." "Grrr!" grrr
  89.         endif
  90.  
  91. xROUTINE Wechsel2
  92.         freeimage BarVol
  93.         freeimage BarOpt
  94.         freeimage BarSam
  95.         freeimage BarMod
  96.         freeimage haut
  97.         loadimage Skins:main.iff haut Workbench
  98.         loadimage Skins:mod_bar BarMod Workbench
  99.         loadimage Skins:sample_bar BarSam Workbench
  100.         loadimage Skins:option_bar BarOpt Workbench
  101.         loadimage Skins:volume_bar BarVol Workbench
  102.  
  103.  
  104.         ChangeImage PlayGUI 4 -1 -1 haut
  105.         ChangeImage PlayGUI 5 -1 -1 BarMod
  106.         ChangeImage PlayGUI 6 -1 -1 BarSam
  107.         ChangeImage PlayGUI 7 -1 -1 BarOpt
  108.         ChangeImage PlayGUI 8 -1 -1 BarVol
  109.  
  110.         redraw PlayGUI
  111.  
  112.         extract SKINSELECT PATH skiny
  113.         if $a = loaded
  114.         and $stop = na
  115.                 update PlayGUI 1 '$mody'
  116.                 update PlayGUI 2 'Playing mod'
  117.                 WAIT PORT "HIPPOPLAYER" 5000
  118.                  SendRexx HIPPOPLAYER "GET TYPE"
  119.                 *typ = $$REXXRET
  120.                  update PlayGUI 3 "$*typ"
  121.                 
  122.         else 
  123.                 update PlayGUI 2 'Selected Skin'
  124.                 update PlayGUI 1 '$skiny'
  125.         endif 
  126.       
  127.  
  128.  
  129. xROUTINE Versteck
  130.         if $but = ja
  131.         Setgad PlayGUI 5/8 HIDE
  132.         Setgad PlayGUI 1/3 HIDE
  133.                redraw PlayGUI
  134.         but = nein
  135.         elseif $but = nein
  136.         ezreq "There's nothing to hide!" "Sure" sure
  137.         endif
  138.  
  139.  
  140.  
  141.  
  142. xROUTINE Zeig
  143.        if $but = nein
  144.        Setgad PlayGUI 5/8 SHOW
  145.        Setgad PlayGUI 1/3 SHOW
  146.        redraw PlayGUI
  147.        but = ja
  148.        elseif $but = ja
  149.        ezreq "There's nothing to show!" "Sure" sure
  150.        endif
  151.  
  152. ;SliderBox
  153. SQUARE 20 71 104 20 0 FILL
  154.  
  155. xonload 
  156.         
  157.         Set help on
  158.         extract PlayGUI guipath PlayGUIpath
  159.         ifexists assign PlayGUI:  ;try to self-locate
  160.         else 
  161.                 assign PlayGUI: $PlayGUIpath
  162.         endif
  163.  
  164.  
  165. ;DEFAULT VARIABLES----------------------------
  166.  
  167.         c = hippyend
  168.         stumm = laut
  169.         pvol = NO
  170.         vol = 100
  171.         vol2 = 50
  172.         short = nope
  173.         but = ja
  174.         GuiPattern = PlayGUI:SYS/Patterns/PGpattern
  175.         STARTSOUND = PlayGUI:SYS/Sounds/SoundStart
  176.         QUITSOUND = PlayGUI:SYS/Sounds/SoundEnd
  177.         HIPPOPATH = C:Hip
  178.         PLAY16PATH = C:Play16
  179.         MODPATH = RAM:
  180.         SKINSELECT = PLAYGUI:SKINS/Standard/
  181.         SAMPLEPATH = RAM:
  182.         LAUNCHPATH = RAM:
  183.         PLONEPATH = PLAYGUI:Plone/
  184.         SCOPEPATH = C:Hip/Scopes/
  185.         COPYPATH = RAM:
  186.         COPYPATH2 = RAM:
  187.         YAMPATH = DH0:Internet/YAM/YAM
  188.         BROWSERPATH = DH0:Internet/Voyager/V
  189.         AUTOPLAY = NO
  190.         PLONESTART = NO
  191.         STARTMODINFO = NO
  192.         P16LOOP = NO
  193.         P16FILTER = NO
  194.         THEME = NO
  195.         THEMEPATH = PlayGUI:Themes/
  196.         TQUITSOUND = PlayGUI:SYS/Sounds/SoundEnd
  197.         TSTARTSOUND = PlayGUI:SYS/Sounds/SoundStart
  198.  
  199.  
  200.         ;LOAD PLAYGUI CONFIGURATION
  201.         ;--------------------------
  202.  
  203.         ifexists file PlayGUI:SYS/PlayGUIconfig
  204.         guiload PLAYGUI:SYS/PlayGUIconfig
  205.         else
  206.         ezreq "Cannot find config - Please configure PlayGUI!" "I will do!" do
  207.         endif
  208.  
  209.         ;--------------------------
  210.         ;LOAD THEME
  211.         ;--------------------------
  212.  
  213.         if $THEME = YES
  214.         gosub PlayGUI ThemeAb
  215.         elseif $THEME = NO
  216.         gosub PlayGUI NormalInit
  217.         endif
  218.  
  219.         xROUTINE ThemeAb
  220.  
  221.         ifexists DIR $THEMEPATH
  222.         gosub PlayGUI ThemeLoad
  223.         else
  224.         ezreq "Cannot find theme!" "ok" ok
  225.         gosub PlayGUI NormalInit
  226.         endif
  227.  
  228.         xROUTINE ThemeLoad
  229.         assign Themes: $THEMEPATH
  230.  
  231.         ifexists FILE Themes:Pattern/PGPattern
  232.         loadimage Themes:Pattern/PGpattern GuiPattern Workbench
  233.         gosub PlayGUI SoundStartNext
  234.         else
  235.         ezreq "Cannot find theme elements!" "Ok" ok
  236.         gosub PlayGUI NormalInit
  237.         endif
  238.  
  239.         xROUTINE SoundStartNext
  240.         ifexists FILE Themes:Sounds/SoundStart
  241.         gosub PlayGUI SoundQuitNext
  242.         else
  243.         ezreq "Cannot find start sound!" "Ok" ok
  244.         gosub PlayGUI NormalInit
  245.         endif
  246.  
  247.         xROUTINE SoundQuitNext
  248.         ifexists FILE Themes:Sounds/SoundEnd
  249.         gosub PlayGUI SkinNext
  250.         else
  251.         ezreq "Cannot find quit sound!" "Ok" ok
  252.         gosub PlayGUI NormalInit
  253.         endif
  254.  
  255.         xROUTINE SkinNext
  256.         ifexists FILE Themes:Skin/main.iff
  257.         assign Skins: Themes:Skin/
  258.         loadimage PLAYGUI:SYS/Start.iff ab Workbench
  259.         gosub PlayGUI LadeThemeSkin
  260.         else
  261.         ezreq "Cannot find skin!" "Ok" ok
  262.         gosub PlayGUI NormalInit
  263.         endif
  264.  
  265.         xROUTINE LadeThemeSkin
  266.  
  267.         loadimage Skins:main.iff haut Workbench
  268.  
  269.         loadimage Skins:mod_bar BarMod Workbench
  270.  
  271.         loadimage Skins:sample_bar BarSam Workbench
  272.  
  273.         loadimage Skins:option_bar BarOpt Workbench
  274.  
  275.         loadimage Skins:volume_bar BarVol Workbench
  276.  
  277.         gosub PlayGUI Init
  278.  
  279.  
  280.         xROUTINE NormalInit
  281.  
  282.         ifexists FILE $GuiPattern
  283.         loadimage $GuiPattern GuiPattern Workbench
  284.         gosub PlayGUI StartUpInit
  285.         else
  286.         ezreq "Cannot find pattern! Wrong path?" "Well.." well
  287.         gosub PlayGUI StartUpInit
  288.         endif
  289.  
  290.  
  291.         loadimage PLAYGUI:SYS/Start.iff ab Workbench
  292.  
  293.         IfExists DIRECTORY $SKINSELECT
  294.  
  295.                 assign Skins: $SKINSELECT
  296.  
  297.         else 
  298.                 EzReq "Cannot find skin - Loading default..." "Really?" ok
  299.                 assign Skins: PlayGUI:Skins/standard
  300.         EndIf 
  301.  
  302.         loadimage Skins:main.iff haut Workbench
  303.         
  304.         loadimage Skins:mod_bar BarMod Workbench
  305.         
  306.         loadimage Skins:sample_bar BarSam Workbench
  307.        
  308.         loadimage Skins:option_bar BarOpt Workbench
  309.        
  310.         loadimage Skins:volume_bar BarVol Workbench
  311.  
  312.         gosub PlayGUI Init
  313.  
  314.         xROUTINE Init
  315.         if $THEME = YES
  316.         CLI 'C:run >NIL: $PLAY16PATH $TSTARTSOUND'
  317.         gosub PlayGUI PGInit
  318.         elseif $THEME = NO
  319.         CLI 'C:run >NIL: $PLAY16PATH $STARTSOUND'
  320.         gosub PlayGUI PGInit
  321.         endif
  322.  
  323.         xROUTINE PGInit
  324.  
  325.         GuiOpen PlayGUI
  326.         gosub PlayGUI StartUpInit
  327.  
  328.         xROUTINE StartUpInit
  329.  
  330.         If $PLONESTART = YES
  331.         gosub PlayGUI StartPloneNow
  332.         endif
  333.  
  334.         If $STARTMODINFO = YES
  335.         gosub PlayGUI StartModInfo
  336.         endif
  337.  
  338.         xROUTINE StartPloneNow
  339.         IfExists DIRECTORY $PLONEPATH
  340.         assign GUIPlone: $PLONEPATH
  341.         GuiLoad GUIPlone:Plone
  342.         else
  343.         ezreq "Cannot find Plone! Set the correct path first!" "Ok!" ok
  344.         endif
  345.  
  346.         xROUTINE StartModInfo
  347.         short = yep
  348.  
  349.         GuiOpen ShortInfo
  350.  
  351.  
  352.  
  353. IMAGE 0 0 haut
  354.         gadid 4
  355. IMAGE 15 85 BarMod
  356.         gadid 5
  357. IMAGE 153 22 BarSam
  358.         gadid 6
  359. IMAGE 160 85 BarOpt
  360.         gadid 7
  361. IMAGE 15 68 BarVol
  362.         gadid 8
  363.  
  364. BOX 0 0 275 116 out button
  365.  
  366.  
  367. xROUTINE Hopp
  368.         Stop = na
  369.  
  370.  
  371. ;SliderBox
  372. SQUARE 20 71 104 7 0 FILL
  373.  
  374.  
  375.  
  376.  
  377. ;VOLUME-SLIDER
  378.  
  379.  
  380. XHSLIDER 19 71 108 8 '' vol 0 64 64 ''
  381.  
  382.         if $a = loaded
  383.         and $c = hippy
  384.        
  385.         SendRexx HIPPOPLAYER VOLUME=$vol
  386.  
  387.         update PlayGUI 3 "Volume set to $vol"
  388.  
  389.         elseif $d = Play16
  390.  
  391.         update PlayGUI 3 "Volume set to $vol"
  392.  
  393.         else
  394.         gosub PlayGUI Hopp
  395.         endif
  396.  
  397.  
  398.  
  399. ;PLAYGUIMENUS
  400.  
  401. xMenu 'PLAYGUI' 'ABOUT PlayGUI' '' 'a'
  402.    
  403.         GuiOpen PGAbout
  404.  
  405.  
  406. xMenu 'PLAYGUI' 'HELP' '' 'H'
  407. ezreq 'Do you want the german or the english one?' 'German|English' sprache
  408. if $sprache = 1
  409. gosub PlayGUI Sprachwahld
  410. else
  411. gosub PlayGUI Sprachwahle
  412. endif
  413.  
  414. xROUTINE Sprachwahld
  415. ifexists FILE C:Multiview
  416. CLI 'C:run >NIL: C:Multiview PlayGUI:Docs/PlayGUI.german'
  417. else
  418. ezreq "You need Multiview in SYS:C!" "Oh my god!" god
  419. endif
  420.  
  421. xROUTINE Sprachwahle
  422. ifexists FILE C:Multiview
  423. CLI 'C:run >NIL: C:Multiview PlayGUI:Docs/PlayGUI.guide'
  424. else
  425. ezreq "You need Multiview in SYS:C!" "Oh my god!" god
  426. endif
  427.  
  428. xROUTINE mini
  429.        guiclose PlayGUI
  430.        guiopen MiniPlay
  431.  
  432.  
  433. xMenu 'PLAYGUI' 'Iconify' '' 'I'
  434.         setgad #this 55 ON ; show appicon
  435.         guiclose #this
  436.  
  437.  
  438. xMenu 'PLAYGUI' 'Mini Play' '' '-'
  439.         
  440.         gosub PlayGUI mini
  441.  
  442.  
  443.  
  444. xAppIcon 10 10 :PlayGui PlayGui '' OFF
  445.         GadID 55
  446.         GuiOpen playgui
  447.         GuiScreen playgui FRONT
  448.         setgad #this 55 OFF ; hide appicon
  449.  
  450. xMenu 'PLAYGUI' 'SYSInfo' '' ''
  451.        guiopen SYSInfo
  452.  
  453. xMenu PLAYGUI BARLABEL '' ''
  454.  
  455. xMenu 'PLAYGUI' 'QUIT' '' ''
  456.         gosub PlayGUI DASENDE
  457.  
  458. xMenu 'PLAYGUI' 'QuickQUIT' '' 'q'
  459.         if $c = hippy
  460.         gosub PlayGUI QENDE
  461.          elseif $d = play16
  462.                 BreakTask $PLAY16PATH C
  463.                 gosub PlayGUI ENDE
  464.         elseif $c = Hipppyend
  465.                 gosub PlayGUI ENDE
  466.         else
  467.                 gosub PlayGUI ENDE
  468.  
  469.                 endif
  470.  
  471.                 xROUTINE QENDE
  472.                 CLI 'C:run >NIL: $HIPPOPATH quit'
  473.                 if $THEME = YES
  474.                 CLI 'C:run >NIL: $PLAY16PATH $TQUITSOUND'
  475.                 gosub PlayGUI ENDE4
  476.                 elseif $THEME = NO
  477.                 CLI 'C:run >NIL: $PLAY16PATH $QUITSOUND'
  478.                 gosub PlayGUI ENDE4
  479.                 endif
  480.  
  481.                 xROUTINE ENDE4
  482.                 
  483.                 freeimage haut
  484.                 freeimage Barmod
  485.                 freeimage BarSam
  486.                 freeimage BarOpt
  487.                 freeimage BarVol
  488.                 freeimage GuiPattern
  489.                 freeimage ab
  490.                 guiquit ShortInfo
  491.                 guiquit SYSInfo
  492.                 guiquit MiniPlay
  493.                 guiquit PGAbout
  494.                 guiquit Voreinstellung
  495.                 guiquit OptionConfig
  496.                 guiquit StartupConfig
  497.                 guiquit PathConfig
  498.                 guiquit P16Config
  499.                 guiquit SetVolume
  500.                 guiquit Themes
  501.                 guiquit QuickMenu
  502.                 guiquit Preview
  503.                 guiquit ThemeCreate
  504.                 guiquit ShowPattern
  505.                 guiquit ShowSkin
  506.                 guiquit PlayGUI
  507.  
  508.        
  509. ;OPTIONMENU
  510.  
  511. xMenu 'OPTIONS' 'Select new SKIN' '' 's'
  512.         GOSUB PlayGUI NeuHaut
  513.  
  514. xMenu 'OPTIONS' 'Save SKIN as default' '' ''
  515.  
  516.         gosub PathConfig SavePaths
  517.  
  518. xMenu OPTIONS BARLABEL '' ''
  519.  
  520. xMenu 'OPTIONS' 'Buttons' 'Hide' ''
  521.         GOSUB PlayGUI Versteck
  522.  
  523. xMenu 'OPTIONS' 'Buttons' 'Show' ''
  524.         GOSUB PlayGUI Zeig
  525.  
  526. xMenu 'OPTIONS' 'Module' 'Eject' 'e'
  527.        
  528.         ReqFile 0 0 200 400 "Choose a module..." LOAD module $MODPATH
  529.         ifexists FILE $module
  530.         extract module FILE mody
  531.         update PlayGUI 1 '$mody'
  532.         update PlayGUI 2 'Select mod'
  533.         a = loaded
  534.         else
  535.         ezreq "No mod selected" "I know!" jep
  536.         endif
  537.  
  538. xMenu 'OPTIONS' 'Module' 'Play' 'p'
  539.  
  540.         if $a = loaded
  541.         and $short = yep
  542.         gosub PlayGUI InfoPlay
  543.  
  544.         elseif $a = loaded
  545.         and $short = nope
  546.         gosub PlayGUI NormalPlay
  547.         endif
  548.  
  549.  
  550. xMenu 'OPTIONS' 'Module' 'Pause/Continue' 'z'
  551.         gosub PlayGUI PausCont
  552.  
  553.         xROUTINE PausCont
  554.  
  555.         if $a = loaded
  556.         and $stop = na
  557.                 SendRexx HIPPOPLAYER CONT
  558.            else
  559.            gosub PlayGUI Hopp
  560.            endif
  561.  
  562. xMenu 'OPTIONS' 'Module' 'Stop' 'x'
  563.  
  564.         if $a = loaded
  565.         and $stop = na
  566.                 CLI 'C:run >NIL: $HIPPOPATH quit'
  567.  
  568.                 stop = ja
  569.                 c = hippyend
  570.                 update PlayGUI 1 'Stop module'
  571.                 update PlayGUI 2 ''
  572.                 update PlayGUI 3 ''
  573.                 else
  574.         gosub PlayGUI Hopp
  575.         endif
  576.  
  577. xMenu 'OPTIONS' 'Module' 'Forward' 'f'
  578.  
  579.         if $a = loaded
  580.         and $c = hippy
  581.                 SendRexx HIPPOPLAYER FFWD
  582.         else 
  583.                 gosub PlayGUI Hopp
  584.         endif 
  585.  
  586. xMenu 'OPTIONS' 'Module' 'Rewind' 'r'
  587.         if $a = loaded
  588.         and $c = hippy
  589.                 SendRexx HIPPOPLAYER REW
  590.         else 
  591.                 gosub PlayGUI Hopp
  592.         endif 
  593.  
  594. xMENU 'OPTIONS' 'Module' 'Mute' 'm'
  595.  
  596.         gosub PlayGUI Ruhe
  597.  
  598.         xRoutine Ruhe
  599.  
  600.         if $a = loaded
  601.         and $c = hippy
  602.         and $stumm = laut
  603.         SendRexx HIPPOPLAYER VOLUME=0
  604.  
  605.                 update PlayGUI 3 "MUTE"
  606.  
  607.         stumm = leise
  608.         gosub PlayGUI Hopp
  609.  
  610.         elseif $a = loaded
  611.         and $c = hippy
  612.         and $stumm = leise
  613.         SendRexx HIPPOPLAYER VOLUME=$vol
  614.  
  615.                 update PlayGUI 3 "Volume set to $vol"
  616.  
  617.         stumm = laut
  618.         gosub playGUI Hopp
  619.  
  620.  
  621.         else
  622.                 gosub PlayGUI Hopp
  623.         endif
  624.  
  625. xMENU 'OPTIONS' 'Module' 'Personal Volume' 'v'
  626.         gosub PlayGUI PersVol
  627.  
  628.         xROUTINE PersVol
  629.  
  630.         if $a = loaded
  631.         and $c = hippy
  632.         and $pvol = NO
  633.         SendRexx HIPPOPLAYER VOLUME=$vol2
  634.  
  635.                 update PlayGUI 3 "Personal vol"
  636.  
  637.         pvol = YES
  638.         gosub PlayGUI Hopp
  639.  
  640.         elseif $a = loaded
  641.         and $c = hippy
  642.         and $pvol = YES
  643.         SendRexx HIPPOPLAYER VOLUME=$vol
  644.  
  645.                 update PlayGUI 3 "Volume set to $vol"
  646.  
  647.         pvol = NO
  648.         gosub playGUI Hopp
  649.  
  650.  
  651.         else
  652.                 gosub PlayGUI Hopp
  653.         endif
  654.         
  655.  
  656. xMENU 'OPTIONS' 'Sample' 'Eject' 'n'
  657.         ReqFile 0 0 200 400 "Choose a sample..." LOAD sample $SAMPLEPATH
  658.         b = loaded
  659.         extract sample FILE sname
  660.         update PlayGUI 1 '$sname'
  661.         update PlayGUI 2 'Select sample'
  662.         update PlayGUI 3 ''
  663.  
  664. xMENU 'OPTIONS' 'Sample' 'Play' 'g'
  665.         if $b = loaded
  666.         and $P16LOOP = YES
  667.         and $P16FILTER = YES
  668.         gosub PlayGUI beidesja
  669.  
  670.         elseif $b = loaded
  671.          and $P16LOOP = NO
  672.         and $P16FILTER = NO
  673.         gosub PlayGUI beidesnein
  674.  
  675.         elseif $b = loaded
  676.          and $P16LOOP = YES
  677.         and $P16FILTER = NO
  678.         gosub PlayGUI loopjafilternein
  679.  
  680.         elseif $b = loaded
  681.          and $P16LOOP = NO
  682.         and $P16FILTER = YES
  683.         gosub PlayGUI loopneinfilterja
  684.  
  685.         else
  686.         Gosub PlayGUI Hopp
  687.         endif
  688.  
  689.  
  690. XROUTINE filterein
  691.  
  692.                 CLI 'C:run >NIL: $PLAY16PATH $sample volume=$vol FILTER=ON'
  693.                 gosub PlayGui Samplename
  694.                 d = play16
  695.  
  696. XROUTINE filteraus
  697.  
  698.                 CLI 'C:run >NIL: $PLAY16PATH $sample volume=$vol FILTER=OFF'
  699.                 gosub PlayGui Samplename
  700.                 d = play16
  701.  
  702. XROUTINE beidesja
  703.  
  704.                 CLI 'C:run >NIL: $PLAY16PATH $sample volume=$vol L=0 FILTER=ON'
  705.                 gosub PlayGui Samplename
  706.                 d = play16
  707.  
  708. XROUTINE beidesnein
  709.  
  710.                 CLI 'C:run >NIL: $PLAY16PATH $sample volume=$vol l=1 FILTER=OFF'
  711.                 gosub PlayGui Samplename
  712.                 d = play16
  713.  
  714. XROUTINE loopjafilternein
  715.  
  716.                 CLI 'C:run >NIL: $PLAY16PATH $sample volume=$vol l=0 Filter=off'
  717.                 gosub PlayGui Samplename
  718.                 d = play16
  719.  
  720. XROUTINE loopneinfilterja
  721.  
  722.                 CLI 'C:run >NIL: $PLAY16PATH $sample volume=$vol L=1 FILTER=ON'
  723.                 gosub PlayGUI Samplename
  724.                 d = play16
  725.  
  726. XROUTINE Samplename
  727.  
  728.                 extract sample FILE sname
  729.                 update PlayGUI 2 "$sname"
  730.  
  731.                 if $P16LOOP = YES
  732.                 update PlayGUI 1 "LOOP: ON"
  733.                 elseif $P16LOOP = NO
  734.                 update PlayGUI 1 "LOOP: OFF"
  735.                 endif
  736.  
  737.                  if $P16FILTER = YES
  738.                 update PlayGUI 3 "FILTER: ON"
  739.                 elseif $P16FILTER = NO
  740.                 update PlayGUI 3 "FILTER: OFF"
  741.                 endif
  742.  
  743.  
  744.  
  745. xMENU 'OPTIONS' 'Sample' 'Stop' 't'
  746.                 if $b = loaded
  747.                 BreakTask $PLAY16PATH C
  748.                 d = play16end
  749.                 update PlayGUI 1 'Stop sample'
  750.                 update PlayGUI 2 ''
  751.                 update PlayGUI 3 ''
  752.                 endif
  753.  
  754. xMenu OPTIONS BARLABEL '' ''
  755.  
  756. xMenu 'OPTIONS' 'Launch' '' 'l'
  757.         ReqFile 0 0 200 400 "Choose a music-tool..." LOAD tool $LAUNCHPATH
  758.         CLI 'C:RUN >NIL: $tool'
  759.  
  760. xMENU 'OPTIONS' 'Choose Scope' '' 'y'
  761. ReqFile 0 0 200 400 "Choose a scope..." LOAD scope $SCOPEPATH
  762.         CLI 'C:RUN >NIL: $scope'
  763.  
  764. xMENU 'OPTIONS' 'Autoplay' 'ON' ''
  765. AUTOPLAY = YES
  766.  
  767. xMENU 'OPTIONS' 'Autoplay' 'OFF' ''
  768. AUTOPLAY = NO
  769.  
  770. xMENU OPTIONS BARLABEL '' ''
  771.  
  772. xMENU 'OPTIONS' 'Copy to mod dir' '' 'd'
  773. if $a = loaded
  774. gosub PlayGUI ModCopylos
  775. else
  776. ezreq 'There is no mod in memory!' 'You are right!' righty
  777. endif
  778.  
  779. XROUTINE ModCopylos
  780. ifexists DIR $COPYPATH
  781. CLI 'C:Copy $module to $COPYPATH'
  782. ezReq 'Finished!' 'Good' good
  783. else
  784. ezreq "DIR not found!" "Fine!" fine
  785. endif
  786.  
  787. xMENU 'OPTIONS' 'Copy to sample dir' '' ''
  788. if $b = loaded
  789. gosub PlayGUI SampleCopy
  790. else
  791. ezreq "There is no sample in memory!" "You are right!" righty
  792. endif
  793.  
  794. XRoutine SampleCopy
  795. ifexists FILE $sample
  796. gosub PlayGUI SampleCopylos
  797. else
  798. ezreq "Sample not found!" "Ok" ok
  799. endif
  800.  
  801. xROUTINE SampleCopylos
  802. ifexists DIR $COPYPATH2
  803. CLI 'C:Copy $sample to $COPYPATH2'
  804. ezReq 'Finished!' 'Good' good
  805. else
  806. ezreq "DIR not found!" "Argh!" argh
  807. endif
  808.  
  809. xMENU OPTIONS BARLABEL '' ''
  810.  
  811. xMENU 'OPTIONS' 'Config' '' ''
  812.        guiopen Voreinstellung
  813.  
  814.  
  815. xMENU 'OPTIONS' 'Save Config' '' ''
  816.        gosub PathConfig SavePaths
  817.  
  818. xMENU 'MODINFO' 'INFO Window' '' '+'
  819.         short = yep
  820.         GOSUB PlayGUI AllInfo
  821.  
  822. xMenu MODINFO BARLABEL '' ''
  823.  
  824. xMENU 'MODINFO' 'Playtime' '' ''
  825.         if $a = loaded
  826.         and $c = hippy
  827.         GOSUB PlayGUI TimeInfo
  828.         else
  829.         ezreq "Play a mod first!" "Jep!" jep
  830.         endif
  831.  
  832. xMENU 'MODINFO' 'Modsize' '' ''
  833.         if $a = loaded
  834.         and $c = hippy
  835.         GOSUB PlayGUI SizeInfo
  836.         else
  837.         ezreq "Play a mod first!" "Jep!" jep
  838.         endif
  839.  
  840. xMENU 'MODINFO' 'Modtype' '' ''
  841.         if $a = loaded
  842.         and $c = hippy
  843.         WAIT PORT "HIPPOPLAYER" 5000
  844.                  SendRexx HIPPOPLAYER "GET TYPE"
  845.                 *typ = $$REXXRET
  846.                  update PlayGUI 3 "$*typ"
  847.         else
  848.         ezreq "Play a mod first!" "Jep!" jep
  849.         endif
  850.  
  851. xMENU 'MODINFO' 'Current Songposition' '' ''
  852.         if $a = loaded
  853.         and $c = hippy
  854.         GOSUB PlayGUI CurrentInfo
  855.         else
  856.         ezreq "Play a mod first!" "Jep!" jep
  857.         endif
  858.  
  859. xMENU 'MODINFO' 'Max Songposition' '' ''
  860.         if $a = loaded
  861.         and $c = hippy
  862.         GOSUB PlayGUI MaxInfo
  863.         else
  864.         ezreq "Play a mod first!" "Jep!" jep
  865.         endif
  866.  
  867. xMenu 'SOUND' '8 BIT Soundquality' '' '8'
  868.         
  869.         CLI 'delete S:HippoPlayer.prefs QUIET'
  870.         CLI 'Copy PlayGUI:SoundPrefs/8Bit/HippoPlayer.prefs to S:'
  871.         Update PlayGUI 3 "Soundquality=8BIT"
  872.  
  873. xMenu 'SOUND' '14 BIT Soundquality' '' '4'
  874.  
  875.         CLI 'delete S:HippoPlayer.prefs QUIET'
  876.         CLI 'Copy PlayGUI:SoundPrefs/14Bit/HippoPlayer.prefs to S:'
  877.         Update PlayGUI 3 "Soundquality=14BIT"
  878.  
  879. xMENU 'SOUND' 'AHI Prefs' '' '6'
  880.  
  881.         CLI 'delete S:HippoPlayer.prefs QUIET'
  882.         CLI 'Copy PlayGUI:SoundPrefs/AHI/HippoPlayer.prefs to S:'
  883.         Update PlayGUI 3 "Soundquality=16BIT"
  884.  
  885. xMENU 'SOUND' 'USER Prefs' '' 'u'
  886.         
  887.         CLI 'delete S:HippoPlayer.prefs QUIET'
  888.         CLI 'Copy PlayGUI:SoundPrefs/USER/HippoPlayer.prefs to S:'
  889.         Update PlayGUI 3 "Soundquality=USER"
  890.  
  891.  
  892. xMENU 'P16PREFS' 'Loop Samples' 'ON' '0'
  893.  
  894.         
  895.         
  896.         P16LOOP = YES
  897.  
  898.         if $d = play16
  899.         update PlayGUI 1 "LOOP: ON"
  900.         endif
  901.  
  902. xMENU 'P16PREFS' 'Loop Samples' 'OFF' '1'
  903.  
  904.         
  905.         P16LOOP = NO
  906.  
  907.         if $d = play16
  908.         update PlayGUI 1 "LOOP: OFF"
  909.         endif
  910.  
  911.  
  912. xMENU 'P16PREFS' 'Filter' 'ON' '2'
  913.         
  914.         P16FILTER = YES
  915.  
  916.         if $d = play16
  917.         update PlayGUI 3 "FILTER: ON"
  918.         endif
  919.  
  920.  
  921. xMENU 'P16PREFS' 'Filter' 'OFF' '3'
  922.         
  923.         P16FILTER = NO
  924.  
  925.         if $d = play16
  926.         update PlayGUI 3 "FILTER: OFF"
  927.         endif
  928.  
  929. xMenu P16PREFS BARLABEL '' ''
  930.  
  931.  
  932. xMENU 'P16PREFS' 'Save Prefs' '' ''
  933.         gosub PathConfig SavePaths
  934.  
  935. xMENU 'THEMES' 'Load Theme' '' ''
  936.  
  937.        ReqFile 0 0 200 400 "Choose theme dir..." DIR THEMEPATH #PLAYGUI:Themes/
  938.        gosub PlayGUI OpenTheme
  939.  
  940.        xROUTINE OpenTheme
  941.  
  942.        THEME = YES
  943.        ifexists DIR $THEMEPATH
  944.        gosub PlayGUI NewThemeLoad
  945.        else
  946.        ezreq "Cannot find theme!" "ok" ok
  947.        endif
  948.  
  949.        xROUTINE NewThemeLoad
  950.        assign Themes: $THEMEPATH
  951.        ifexists FILE Themes:Pattern/PGpattern
  952.        freeimage GuiPattern
  953.        loadimage Themes:Pattern/PGpattern GuiPattern Workbench
  954.        gosub PlayGUI DoQuitSound
  955.        else
  956.        ezreq "Cannot find theme element!" "Ok" ok
  957.        endif
  958.  
  959.        xROUTINE DoQuitSound
  960.  
  961.        ifexists FILE Themes:Sounds/SoundEnd
  962.        TQUITSOUND = Themes:Sounds/SoundEnd
  963.        gosub PlayGUI DoStartSound
  964.        else
  965.        ezreq "Cannot find quit sound!" "Ok" ok
  966.        endif
  967.  
  968.  
  969.        xROUTINE DoStartSound
  970.        ifexists FILE Themes:Sounds/SoundStart
  971.        TSTARTSOUND = Themes:Sounds/SoundStart
  972.        gosub PlayGUI DoSkin
  973.        else
  974.        ezreq "Cannot find start sound!" "Ok" ok
  975.        endif
  976.  
  977.        xROUTINE DoSkin
  978.        ifexists FILE Themes:Skin/main.iff
  979.        assign Skins: Themes:Skin/
  980.        gosub PlayGUI Wechsel2
  981.        else
  982.        ezreq "Cannot find skin!" "Ok" ok
  983.        endif
  984.  
  985. xMENU 'THEMES' 'Save Theme' '' ''
  986.         gosub PathConfig SavePaths
  987.  
  988. xMENU 'PLUGINS' 'Plone' '' ''
  989.         IfExists DIRECTORY $PLONEPATH
  990.         assign GUIPlone: $PLONEPATH
  991.         GuiLoad GUIPlone:Plone
  992.         else
  993.         ezreq "No plugin! Maybe wrong path?" "Maybe.." maybe
  994.         endif
  995.  
  996. ; BUTTON - DEFINITIONEN
  997.  
  998. xAPPWindow module
  999.         a = loaded
  1000.  
  1001.         if $a = loaded
  1002.         and $short = yep
  1003.         gosub PlayGUI InfoPlay
  1004.  
  1005.         elseif $a = loaded
  1006.         and $short = nope
  1007.         gosub PlayGUI NormalPlay
  1008.  
  1009.         endif
  1010.         
  1011.  
  1012. XAREA 3 3 15 15 BOX
  1013.        guiopen QuickMenu
  1014.  
  1015.  
  1016. XAREA 250 95 20 18 BOX
  1017.        gosub PlayGUI mini
  1018.  
  1019. XAREA 15 85 20 18 NOBOX
  1020.         Gadhelp "Info about the Module"
  1021.         gosub PlayGUI ModSamInfo
  1022.  
  1023. xROUTINE ModSamInfo
  1024.         
  1025.         if $a = loaded
  1026.         and $c = hippy
  1027.                 SendRexx HIPPOPLAYER SAMPLES
  1028.         else 
  1029.                 gosub PlayGUI Hopp
  1030.         endif 
  1031.  
  1032. XAREA 99 85 20 18 NOBOX
  1033.         Gadhelp "FORWARD"
  1034.         gosub PlayGUI ForwMod
  1035.  
  1036. xROUTINE ForwMod
  1037.         if $a = loaded
  1038.         and $c = hippy
  1039.                 SendRexx HIPPOPLAYER FFWD
  1040.         else 
  1041.                 gosub PlayGUI Hopp
  1042.         endif 
  1043.  
  1044. XAREA 78 85 20 18 NOBOX
  1045.         Gadhelp "REWIND"
  1046.         gosub PlayGUI RewMod
  1047.  
  1048. xROUTINE RewMod
  1049.         if $a = loaded
  1050.         and $c = hippy
  1051.                 SendRexx HIPPOPLAYER REW
  1052.         else 
  1053.                 gosub PlayGUI Hopp
  1054.         endif 
  1055.  
  1056.  
  1057.  
  1058.  
  1059. XAREA 36 85 20 18 NOBOX
  1060.         Gadhelp "Play selected module"
  1061.         if $a = loaded
  1062.         and $short = yep
  1063.         gosub PlayGUI InfoPlay
  1064.  
  1065.         elseif $a = loaded
  1066.         and $short = nope
  1067.         gosub PlayGUI NormalPlay
  1068.  
  1069.         elseif $c = hippyend
  1070.         gosub PlayGUI choice
  1071.         endif
  1072.  
  1073. XROUTINE InfoPlay
  1074.  
  1075.         CLI 'C:run >NIL: $HIPPOPATH hide $module'
  1076.         extract module FILE *mody
  1077.                 
  1078.         WAIT PORT "HIPPOPLAYER" 5000
  1079.         SendRexx HIPPOPLAYER "GET SIZE"
  1080.         *size = $$REXXRET
  1081.  
  1082.         WAIT PORT "HIPPOPLAYER" 5000
  1083.         SendRexx HIPPOPLAYER "GET DURA"
  1084.         *time = $$REXXRET
  1085.  
  1086.         WAIT PORT "HIPPOPLAYER" 5000
  1087.         SendRexx HIPPOPLAYER "GET TYPE"
  1088.  
  1089.  
  1090.         WAIT PORT "HIPPOPLAYER" 5000
  1091.         SendRexx HIPPOPLAYER "GET CSPO"
  1092.         *curr = $$REXXRET
  1093.  
  1094.         WAIT PORT "HIPPOPLAYER" 5000
  1095.         SendRexx HIPPOPLAYER "GET MSPO"
  1096.         *max = $$REXXRET
  1097.  
  1098.         SendRexx HIPPOPLAYER "GET TYPE"
  1099.         *typ = $$REXXRET
  1100.         update PlayGUI 3 "$*typ"
  1101.  
  1102. update Shortinfo 10 "NAME: $*mody"
  1103. update Shortinfo 11 "MODTYPE: $*typ"
  1104. update Shortinfo 12 "SIZE: $*size bytes"
  1105. if $*time = 0
  1106. update ShortInfo 13 "TIME: Not available"
  1107. elseif $*time > 0
  1108. update Shortinfo 13 "TIME: $*time seconds"
  1109. endif
  1110. if $*max = 0
  1111. update ShortInfo 14 "MAXIMAL POSITION: Not available"
  1112. elseif $*max > 0
  1113. update Shortinfo 14 "MAXIMAL POSITION: $*max"
  1114. endif
  1115.                 update PlayGUI 1 '$*mody'
  1116.                 update PlayGUI 2 "Playing mod"
  1117.                 c = hippy
  1118.                 stop = na
  1119.  
  1120.  
  1121. XROUTINE NormalPlay
  1122.  
  1123.            
  1124.         CLI 'C:run >NIL: $HIPPOPATH hide $module'
  1125.         extract module FILE *mody
  1126.  
  1127.         WAIT PORT "HIPPOPLAYER" 5000
  1128.         SendRexx HIPPOPLAYER "GET SIZE"
  1129.         *size = $$REXXRET
  1130.  
  1131.         WAIT PORT "HIPPOPLAYER" 5000
  1132.         SendRexx HIPPOPLAYER "GET DURA"
  1133.         *time = $$REXXRET
  1134.  
  1135.         WAIT PORT "HIPPOPLAYER" 5000
  1136.         SendRexx HIPPOPLAYER "GET TYPE"
  1137.  
  1138.  
  1139.         WAIT PORT "HIPPOPLAYER" 5000
  1140.         SendRexx HIPPOPLAYER "GET CSPO"
  1141.         *curr = $$REXXRET
  1142.  
  1143.         WAIT PORT "HIPPOPLAYER" 5000
  1144.         SendRexx HIPPOPLAYER "GET MSPO"
  1145.         *max = $$REXXRET
  1146.  
  1147.         SendRexx HIPPOPLAYER "GET TYPE"
  1148.         *typ = $$REXXRET
  1149.         update PlayGUI 3 "$*typ"
  1150.  
  1151.                 update PlayGUI 1 '$*mody'
  1152.                 update PlayGUI 2 "Playing mod"
  1153.                 c = hippy
  1154.                 stop = na
  1155.  
  1156.  
  1157.  
  1158.  
  1159.  
  1160.  
  1161. ;PLAYSAMPLE
  1162.  
  1163. XAREA 153 21 20 18 NOBOX
  1164.         Gadhelp "Play selected sample"
  1165.         
  1166.         if $b = loaded
  1167.         and $P16LOOP = YES
  1168.         and $P16FILTER = YES
  1169.         gosub PlayGUI beidesja
  1170.  
  1171.         elseif $b = loaded
  1172.          and $P16LOOP = NO
  1173.         and $P16FILTER = NO
  1174.         gosub PlayGUI beidesnein
  1175.  
  1176.         elseif $b = loaded
  1177.          and $P16LOOP = YES
  1178.         and $P16FILTER = NO
  1179.         gosub PlayGUI loopjafilternein
  1180.  
  1181.         elseif $b = loaded
  1182.          and $P16LOOP = NO
  1183.         and $P16FILTER = YES
  1184.         gosub PlayGUI loopneinfilterja
  1185.  
  1186.         else
  1187.         Gosub PlayGUI Hopp
  1188.         endif
  1189.  
  1190.  
  1191. XROUTINE filterein
  1192.  
  1193.                 CLI 'C:run >NIL: $PLAY16PATH $sample volume=$vol FILTER=ON'
  1194.                 gosub PlayGui Samplename
  1195.                 d = play16
  1196.  
  1197. XROUTINE filteraus
  1198.  
  1199.                 CLI 'C:run >NIL: $PLAY16PATH $sample volume=$vol FILTER=OFF'
  1200.                 gosub PlayGui Samplename
  1201.                 d = play16
  1202.  
  1203. XROUTINE beidesja
  1204.  
  1205.                 CLI 'C:run >NIL: $PLAY16PATH $sample volume=$vol L=0 FILTER=ON'
  1206.                 gosub PlayGui Samplename
  1207.                 d = play16
  1208.  
  1209. XROUTINE beidesnein
  1210.  
  1211.                 CLI 'C:run >NIL: $PLAY16PATH $sample volume=$vol l=1 FILTER=OFF'
  1212.                 gosub PlayGui Samplename
  1213.                 d = play16
  1214.  
  1215. XROUTINE loopjafilternein
  1216.  
  1217.                 CLI 'C:run >NIL: $PLAY16PATH $sample volume=$vol l=0 Filter=off'
  1218.                 gosub PlayGui Samplename
  1219.                 d = play16
  1220.  
  1221. XROUTINE loopneinfilterja
  1222.  
  1223.                 CLI 'C:run >NIL: $PLAY16PATH $sample volume=$vol L=1 FILTER=ON'
  1224.                 gosub PlayGUI Samplename
  1225.                 d = play16
  1226.  
  1227. XROUTINE Samplename
  1228.  
  1229.                 extract sample FILE sname
  1230.                 update PlayGUI 2 "$sname"
  1231.  
  1232.                 if $P16LOOP = YES
  1233.                 update PlayGUI 1 "LOOP: ON"
  1234.                 elseif $P16LOOP = NO
  1235.                 update PlayGUI 1 "LOOP: OFF"
  1236.                 endif
  1237.  
  1238.                  if $P16FILTER = YES
  1239.                 update PlayGUI 3 "FILTER: ON"
  1240.                 elseif $P16FILTER = NO
  1241.                 update PlayGUI 3 "FILTER: OFF"
  1242.                 endif
  1243.  
  1244.                
  1245.  
  1246.  
  1247. XAREA 57 85 20 18 NOBOX
  1248.         Gadhelp "Stop playing the module"
  1249.         gosub PlayGUI StopMod
  1250.  
  1251.  
  1252. xROUTINE StopMod
  1253.         
  1254.         if $a = loaded
  1255.         and $stop = na
  1256.                 
  1257.  
  1258.                 CLI 'C:run >NIL: $HIPPOPATH quit'
  1259.  
  1260.                 
  1261.                 stop = ja
  1262.                 c = hippyend
  1263.                 update PlayGUI 1 'Stop module'
  1264.                 update PlayGUI 2 ''
  1265.                 update PlayGUI 3 ''
  1266.                 
  1267.         else
  1268.         gosub PlayGUI Hopp
  1269.         endif 
  1270.  
  1271. XAREA 173 21 20 18 NOBOX
  1272.         Gadhelp "Stop playing the sample"
  1273.         if $b = loaded
  1274.                 BreakTask $PLAY16PATH C
  1275.                 d = play16end
  1276.                 update PlayGUI 1 'Stop sample'
  1277.                 update PlayGUI 2 ''
  1278.                 update PlayGUI 3 ''
  1279.         endif
  1280.  
  1281. XAREA 193 21 20 18 NOBOX
  1282.         Gadhelp "Select a sample"
  1283.         ReqFile 0 0 200 400 "Choose a sample..." LOAD sample $SAMPLEPATH
  1284.         b = loaded
  1285.         extract sample FILE sname
  1286.         update PlayGUI 1 '$sname'
  1287.         update PlayGUI 2 'Select sample'
  1288.         update PlayGUI 3 ''
  1289.  
  1290. XAREA 129 85 20 18 NOBOX
  1291.         Gadhelp "Select a module"
  1292.         gosub PlayGUI SelMod
  1293.  
  1294. xROUTINE SelMod
  1295.        
  1296.         ReqFile 0 0 200 400 "Choose a module..." LOAD module $MODPATH
  1297.         if $AUTOPLAY = YES
  1298.         gosub PlayGUI Sofort
  1299.         else
  1300.         gosub PlayGUI Nichtsofort
  1301.         endif
  1302.  
  1303.         xROUTINE Nichtsofort
  1304.  
  1305.         ifexists FILE $module
  1306.         extract module FILE mody
  1307.         update PlayGUI 1 '$mody'
  1308.         update PlayGUI 2 'Select mod'
  1309.         a = loaded
  1310.         else
  1311.         ezreq "No mod selected" "I know!" jep
  1312.         endif
  1313.  
  1314.  
  1315.         xROUTINE Sofort
  1316.         ifexists FILE $module
  1317.         extract module FILE mody
  1318.         update PlayGUI 1 '$mody'
  1319.         update PlayGUI 2 'Select mod'
  1320.         a = loaded
  1321.         gosub PlayGUI WasSpielen
  1322.         else
  1323.         ezreq "No mod selected" "I know!" jep
  1324.         endif
  1325.  
  1326.         xROUTINE WasSpielen
  1327.         if $a = loaded
  1328.         and $short = yep
  1329.         gosub PlayGUI InfoPlay
  1330.  
  1331.         elseif $a = loaded
  1332.         and $short = nope
  1333.         gosub PlayGUI NormalPlay
  1334.  
  1335.         elseif $c = hippyend
  1336.         gosub PlayGUI choice
  1337.         endif
  1338.  
  1339. XAREA 160 85 50 18 NOBOX
  1340.         Gadhelp "Launch your favourite Music-tool!"
  1341.         ReqFile 0 0 200 400 "Choose a music-tool..." LOAD tool $LAUNCHPATH
  1342.         CLI 'C:RUN >NIL: $tool'
  1343.  
  1344.  
  1345. XAREA 213 20 50 20 NOBOX
  1346.         gadhelp "Write commentary about the current module or sample and save it"
  1347.  
  1348.  
  1349.         GuiLoad :PlayInfo
  1350.  
  1351.  
  1352. XAREA 210 85 35 18 NOBOX
  1353.         Gadhelp "Quit PlayGUI"
  1354.         gosub PlayGUI DASENDE
  1355.  
  1356.         xROUTINE DASENDE
  1357.         EZReq "Really quit PlayGUI?" "Quit|Cancel" quity
  1358.         if $quity = 1
  1359.         and $c = hippy
  1360.         gosub PlayGUI SQUIT
  1361.          elseif $quity = 1
  1362.         and $d = play16
  1363.                 BreakTask $PLAY16PATH C
  1364.                 gosub PlayGUI ENDE
  1365.         elseif $quity = 1
  1366.                 gosub PlayGUI ENDE
  1367.         elseif $quity = 1
  1368.         and $c = Hipppyend
  1369.                 gosub PlayGUI ENDE
  1370.         elseif $quity = 1
  1371.         and $d = play16end
  1372.                 gosub PlayGUI ENDE
  1373.         else
  1374.                 Gosub PlayGUI Hopp
  1375.         endif
  1376.  
  1377.                 xROUTINE SQUIT
  1378.                 CLI 'C:run >NIL: $HIPPOPATH quit'
  1379.                 if $THEME = YES
  1380.                 CLI 'C:run >NIL: $PLAY16PATH $TQUITSOUND'
  1381.                 gosub PlayGUI ENDE5
  1382.                 elseif $THEME = NO
  1383.                 CLI 'C:run >NIL: $PLAY16PATH $QUITSOUND'
  1384.                 gosub PlayGUI ENDE5
  1385.                 endif
  1386.  
  1387.                 xROUTINE ENDE5
  1388.                 
  1389.                 freeimage haut
  1390.                 freeimage Barmod
  1391.                 freeimage BarSam
  1392.                 freeimage BarOpt
  1393.                 freeimage BarVol
  1394.                 freeimage GuiPattern
  1395.                 freeimage ab
  1396.                 guiquit PlayGUI
  1397.                 guiquit ShortInfo
  1398.                 guiquit SYSInfo
  1399.                 guiquit MiniPlay
  1400.                 guiquit PGAbout
  1401.                 guiquit Voreinstellung
  1402.                 guiquit OptionConfig
  1403.                 guiquit StartupConfig
  1404.                 guiquit PathConfig
  1405.                 guiquit P16Config
  1406.                 guiquit SetVolume
  1407.                 guiquit Themes
  1408.                 guiquit QuickMenu
  1409.                 guiquit Preview
  1410.                 guiquit ThemeCreate
  1411.                 guiquit ShowPattern
  1412.                 guiquit ShowSkin
  1413.  
  1414.        
  1415.         
  1416.         
  1417. XROUTINE TimeInfo
  1418. SendRexx HIPPOPLAYER 'GET DURA'
  1419.          *time = $$REXXRET
  1420.          Update PlayGUI 3 'Total:$*time Sec'
  1421.  
  1422. XROUTINE SizeInfo
  1423. SendRexx HIPPOPLAYER 'GET SIZE'
  1424.          *size = $$REXXRET
  1425.          Update PlayGUI 3 'Size:$*size bytes'
  1426.  
  1427.  
  1428. XROUTINE CurrentInfo
  1429. SendRexx HIPPOPLAYER 'GET CSPO'
  1430.          *curr = $$REXXRET
  1431.          Update PlayGUI 3 'Current Position $*curr'
  1432.  
  1433.  
  1434. XROUTINE MaxInfo
  1435. SendRexx HIPPOPLAYER 'GET MSPO'
  1436.          *max = $$REXXRET
  1437.          Update PlayGUI 3 'Max Position:$*max'
  1438.  
  1439. XROUTINE AllInfo
  1440.          GuiOpen ShortInfo
  1441.  
  1442. ;Info Update
  1443.  
  1444.  
  1445. XAREA 18 25 126 38 BOX
  1446.         Gadhelp "Info about the Module"
  1447.         if $a = loaded
  1448.         and $c = hippy
  1449.                 SendRexx HIPPOPLAYER SAMPLES
  1450.         else 
  1451.                 gosub PlayGUI Hopp
  1452.         endif 
  1453.  
  1454.  
  1455.  
  1456.  
  1457. ;Text 23 33 10 19 '' 21 NOBOX
  1458. XTEXTBOX 18 23 126 14 '' ''
  1459.         attr tbstyle 2/3/plain/left
  1460.         attr tbox 2/1/1/none/out
  1461.         gadid 2
  1462.  
  1463. ;Text 23 20 10 20 '' 25 NOBOX
  1464. XTEXTBOX 18 37 126 14 '' ''
  1465.         attr tbstyle 2/3/plain/left
  1466.         attr tbox 2/1/1/none/out
  1467.         gadid 1
  1468.  
  1469. ;text 23 46 10 20 '' 25 NOBOX
  1470. XTEXTBOX 18 51 126 14 '' ''
  1471.         attr tbstyle 2/3/plain/left
  1472.         attr tbox 2/1/1/none/out
  1473.         gadid 3
  1474.  
  1475. ;+++Short info about module+++
  1476.  
  1477. NewFile ShortInfo
  1478.  
  1479.  
  1480. WINBIG 27 318 240 150 "SHORT INFO"
  1481. wintype 01110000
  1482.  
  1483. WINBACKGROUND IMAGE GuiPattern 0
  1484.  
  1485. XBUTTON 170 10 60 20 "_Close"
  1486. short = nope
  1487. guiclose ShortInfo
  1488.  
  1489. LINE 10 58 235 58 1
  1490. LINE 10 78 235 78 1
  1491. LINE 10 98 235 98 1
  1492. LINE 10 118 235 118 1
  1493. LINE 10 138 235 138 1
  1494.  
  1495. XBUTTON 90 10 60 20 "_HELP"
  1496. ezreq "Just play a mod to update a mod information!" "Very good" gut
  1497.  
  1498. XBUTTON 10 10 60 20 "_Refresh"
  1499.  
  1500. VARPATH PlayGUI
  1501.  
  1502. if $a = loaded
  1503. and $c = hippy
  1504.  
  1505. update Shortinfo 10 "NAME: $*mody"
  1506. update Shortinfo 11 "MODTYPE: $*typ"
  1507. update Shortinfo 12 "SIZE: $*size bytes"
  1508. if $*time = 0
  1509. update ShortInfo 13 "TIME: Not available"
  1510. else
  1511. update Shortinfo 13 "TIME: $*time seconds"
  1512. endif
  1513. if $*max = 0
  1514. update ShortInfo 14 "MAXIMAL POSITION: Not available"
  1515. else
  1516. update Shortinfo 14 "MAXIMAL POSITION: $*max"
  1517. endif
  1518. else
  1519. ezreq "Play a mod first!" "Jep" jep
  1520. endif
  1521.  
  1522. TEXT 10 40 20 20 '' 50 NOBOX
  1523. gadid 10
  1524.  
  1525. TEXT 10 60 20 20 '' 50 NOBOX
  1526. gadid 11
  1527.  
  1528. TEXT 10 80 20 20 '' 40 NOBOX
  1529. gadid 12
  1530.  
  1531. TEXT 10 100 20 20 '' 40 NOBOX
  1532. gadid 13
  1533.  
  1534. TEXT 10 120 20 20 '' 40 NOBOX
  1535. gadid 14
  1536.  
  1537. ;----------------------------------------------------------------------------
  1538. NewFile MiniPlay
  1539.  
  1540. WINBIG 0 0 135 20 "MINI PLAY"
  1541. wintype 11110000
  1542. image 1 1 BarMod
  1543.  
  1544.  
  1545. xONCLOSE
  1546. GuiOpen PlayGUI
  1547.  
  1548. xMENU 'MiniPLAY' 'HELP' '' ''
  1549. ezreq "To maximize - click on the close gadget!" "OK!" ok
  1550.  
  1551. xMENU 'MiniPLAY' 'Close' '' '-'
  1552. GuiClose MiniPlay
  1553. GuiOpen PlayGUI
  1554.  
  1555. xMENU 'PLUGINS' 'Plone' '' ''
  1556.         IfExists DIRECTORY $PLONEPATH
  1557.         assign GUIPlone: $PLONEPATH
  1558.         GuiLoad GUIPlone:Plone
  1559.         else
  1560.         ezreq "No plugin! Maybe wrong path?" "Maybe.." maybe
  1561.         endif
  1562.  
  1563. xAREA 0 0 20 18 NOBOX
  1564. gosub PlayGUI ModSamInfo
  1565.  
  1566. xAREA 21 0 20 18 NOBOX
  1567.         gosub PlayGUI NormalPlay
  1568.        
  1569. xAREA 42 0 20 18 NOBOX
  1570.         gosub PlayGUI StopMod
  1571.  
  1572. xAREA 62 0 20 18 NOBOX
  1573.         gosub PlayGUI RewMod
  1574.  
  1575. xAREA 83 0 20 18 NOBOX
  1576.         gosub PlayGUI ForwMod
  1577.  
  1578. xAREA 110 0 20 18 NOBOX
  1579.         gosub PlayGUI SelMod
  1580.  
  1581. ;------------------------------------------------------------------------------------
  1582.  
  1583. NEWFile QuickMenu
  1584. WINBIG -1 -1 100 130 "QuickMenu"
  1585. wintype 11010000
  1586. WINONMOUSE 10 10
  1587.  
  1588. VARPATH PlayGUI
  1589.  
  1590. xONCLOSE
  1591. guiclose QuickMenu
  1592.  
  1593. xButton 10 5 80 20 "Plone"
  1594.  
  1595. guiclose QuickMenu
  1596.  
  1597. IfExists DIRECTORY $PLONEPATH
  1598.         assign GUIPlone: $PLONEPATH
  1599.         GuiLoad GUIPlone:Plone
  1600.         else
  1601.         ezreq "No plugin! Maybe wrong path?" "Maybe.." maybe
  1602.         endif
  1603.  
  1604.  
  1605. xButton 10 25 80 20 "New Skin"
  1606.  
  1607. guiclose QuickMenu
  1608.  
  1609. gosub PlayGUI NeuHaut
  1610.  
  1611. xButton 10 45 80 20 "Config"
  1612. guiclose QuickMenu
  1613. guiopen Voreinstellung
  1614.  
  1615. xButton 10 65 80 20 "Pause/Cont"
  1616. gosub PlayGUI PausCont
  1617.  
  1618. xButton 10 85 80 20 "MUTE"
  1619. gosub PlayGUI Ruhe
  1620.  
  1621. xButton 10 105 80 20 "PVolume"
  1622. gosub PlayGUI PersVol
  1623.  
  1624.  
  1625. ;-------------------------------------------------------------------------------------
  1626.  
  1627. NewFile SYSInfo
  1628.  
  1629.  
  1630. WINBIG 0 0 420 340 "SYS INFO"
  1631. wintype 01110000
  1632.  
  1633. VARPATH PlayGUI
  1634.  
  1635. xBUTTON 10 20 100 20 "Show _paths"
  1636. Update SYSInfo 30 "Path of Hippoplayer = $HIPPOPATH"
  1637. Update SYSInfo 31 "Path of Play16 = $PLAY16PATH"
  1638. Update SYSInfo 32 "Path of your Mods = $MODPATH"
  1639. Update SYSInfo 33 "Path of your Samples = $SAMPLEPATH"
  1640. Update SYSInfo 34 "Launchpath = $LAUNCHPATH"
  1641. Update SYSInfo 35 "Path of Plone = $PLONEPATH"
  1642. Update SYSInfo 36 "Path of scopes = $SCOPEPATH"
  1643. Update SYSInfo 37 "Copypath of mods = $COPYPATH"
  1644. Update SYSInfo 38 "Copypath of samples = $COPYPATH2"
  1645. Update SYSInfo 40 "YAMpath = $YAMPATH"
  1646. Update SYSInfo 39 "Browserpath = $BROWSERPATH"
  1647.  
  1648. xBUTTON 120 20 100 20 "Show _config"
  1649. Update SYSInfo 30 "Launch Plone at startup = $PLONESTART"
  1650. Update SYSInfo 31 "Launch ModINFO at startup = $STARTMODINFO"
  1651. Update SYSInfo 32 "Autoplay modules = $AUTOPLAY"
  1652. Update SYSInfo 33 "Play16 loop mode = $P16LOOP"
  1653. Update SYSInfo 34 "Play16 filter mode = $P16FILTER"
  1654. Update SYSInfo 35 "Default skin = $SKINSELECT"
  1655. Update SYSInfo 36 "Personal volume = $vol2"
  1656. Update SYSInfo 37 "Use Themes = $THEME"
  1657. Update SYSInfo 38 "Pattern = $GuiPattern"
  1658. Update SYSInfo 39 "StartSound = $STARTSOUND"
  1659. Update SYSInfo 40 "QuitSound = $QUITSOUND"
  1660. xBUTTON 240 20 100 20 "_Exit"
  1661. guiclose SYSInfo
  1662.  
  1663. Text 10 50 400 20 '' 280 BOX
  1664. gadid 30
  1665. Text 10 75 400 20 '' 280 BOX
  1666. gadid 31
  1667. Text 10 100 400 20 '' 280 BOX
  1668. gadid 32
  1669. Text 10 125 400 20 '' 280 BOX
  1670. gadid 33
  1671. Text 10 150 400 20 '' 280 BOX
  1672. gadid 34
  1673. Text 10 175 400 20 '' 280 BOX
  1674. gadid 35
  1675. Text 10 200 400 20 '' 280 BOX
  1676. gadid 36
  1677. Text 10 225 400 20 '' 280 BOX
  1678. gadid 37
  1679. Text 10 250 400 20 '' 280 BOX
  1680. gadid 38
  1681. Text 10 275 400 20 '' 280 BOX
  1682. gadid 39
  1683. Text 10 300 400 20 '' 280 BOX
  1684. gadid 40
  1685.  
  1686. ;------------------------------------------------------------
  1687. Newfile PGAbout
  1688.  
  1689. WINBIG -1 -1 240 310 "About..."
  1690. wintype 00000000
  1691. VARPATH PlayGUI
  1692.  
  1693. image 0 0 ab
  1694.  
  1695. CTEXT 40 130 "PlayGUI - Copyright 1999-2000" xHelvetica.font 11 2 -1 00000
  1696. CTEXT 55 155 "by Richard Kapp using G4C" xHelvetica.font 11 2 -1 00000
  1697. CTEXT 40 255 "- SEND YOUR SKINS,THEMES TO -" xHelvetica.font 11 1 -1 00020
  1698. CTEXT 40 280 "------ playgui@gmx.net ------" xHelvetica.font 11 1 -1 00020
  1699.  
  1700. xBUTTON 20 180 200 20 "e-mail:Narr.cybersdorf@gmx.net"
  1701. CLI 'run >NIL: $YAMPATH QUIET'
  1702. xBUTTON 20 205 200 20 "www:http://playgui.cxa.de"
  1703. CLI 'run >NIL: $BROWSERPATH http://playgui.cxa.de'
  1704.  
  1705. xBUTTON 90 230 60 15 "OKAY"
  1706. guiclose PGAbout
  1707.  
  1708. ;------------------------------------------------------------
  1709.  
  1710. Newfile Voreinstellung
  1711.  
  1712. WINBIG -1 -1 160 220 "PlayGUI Config"
  1713. wintype 11010000
  1714. WINBACKGROUND IMAGE GuiPattern 0
  1715.  
  1716. xONCLOSE
  1717. guiclose Voreinstellung
  1718.  
  1719. BOX 10 10 140 160 IN RIDGE
  1720.  
  1721. xBUTTON 20 20 120 20 "Startup Config"
  1722. guiclose Voreinstellung
  1723. guiopen StartupConfig
  1724.  
  1725. xBUTTON 20 50 120 20 "Option Config"
  1726. guiclose Voreinstellung
  1727. guiopen OptionConfig
  1728.  
  1729. xBUTTON 20 80 120 20 "Path Config"
  1730. guiclose Voreinstellung
  1731. guiopen PathConfig
  1732.  
  1733. xBUTTON 20 110 120 20 "Play16"
  1734. guiclose Voreinstellung
  1735. guiopen P16Config
  1736.  
  1737. xBUTTON 20 140 120 20 "Themes"
  1738. guiclose Voreinstellung
  1739. guiopen Themes
  1740.  
  1741. xBUTTON 15 180 60 20 "_OK"
  1742. guiclose Voreinstellung
  1743.  
  1744. xBUTTON 85 180 60 20 "_SAVE"
  1745. gosub PathConfig SavePaths
  1746. guiclose Voreinstellung
  1747. ;-------------------------------------------------------------
  1748.  
  1749.  
  1750. Newfile StartupConfig
  1751.  
  1752. WINBIG -1 -1 220 140 "Startup Config"
  1753. wintype 11010000
  1754.  
  1755. WINBACKGROUND IMAGE GuiPattern 0
  1756.  
  1757. xONCLOSE
  1758. guiclose StartupConfig
  1759. guiopen Voreinstellung
  1760.  
  1761. BOX 10 30 200 70 IN RIDGE
  1762.  
  1763. VARPATH PlayGUI
  1764.  
  1765. CTEXT 70 10 "PlayGUI Startup" XHelvetica.font 11 2 -1 00000
  1766. CTEXT 20 45 "Start PLONE" XHelvetica.font 11 2 -1 00000
  1767. CTEXT 20 75 "Start MODINFO" XHelvetica.font 11 2 -1 00000
  1768.  
  1769. xCYCLER 100 40 100 20 "" PLONESTART
  1770. CSTR "Select" "Select"
  1771. CSTR "YES" YES
  1772. CSTR "NO" NO
  1773.  
  1774. xCYCLER 100 70 100 20 "" STARTMODINFO
  1775. CSTR "Select" "Select"
  1776. CSTR "YES" YES
  1777. CSTR "NO" NO
  1778.  
  1779. xBUTTON 85 110 50 20 "_OK"
  1780. guiclose StartupConfig
  1781. guiopen Voreinstellung
  1782. ;-----------------------------------------------------------
  1783.  
  1784. Newfile OptionConfig
  1785.  
  1786. WINBIG -1 -1 350 400 "Option Config"
  1787. wintype 11010000
  1788.  
  1789. WINBACKGROUND IMAGE GuiPattern 0
  1790.  
  1791. VARPATH PlayGUI
  1792.  
  1793. xONCLOSE
  1794. guiclose OptionConfig
  1795. guiopen Voreinstellung
  1796.  
  1797. BOX 10 30 330 40 IN RIDGE
  1798.  
  1799. BOX 10 100 330 40 IN RIDGE
  1800.  
  1801. BOX 10 170 330 40 IN RIDGE
  1802.  
  1803. BOX 10 240 330 100 IN RIDGE
  1804.  
  1805.  
  1806. CTEXT 10 10 "Options..." XHelvetica.font 11 2 -1 00000
  1807. CTEXT 10 77 "Choose Default Pattern..." XHelvetica.font 11 2 -1 00000
  1808. CTEXT 10 147 "Choose Default Skin..." XHelvetica.font 11 2 -1 00000
  1809. CTEXT 10 217 "Choose Sounds..." XHelvetica.font 11 2 -1 00000
  1810. CTEXT 30 243 "Choose Startsound..." XHelvetica.font 11 2 -1 00000
  1811. CTEXT 30 282 "Choose Quitsound..." XHelvetica.font 11 2 -1 00000
  1812. CTEXT 27 43 "Autoplay" XHelvetica.font 11 2 -1 00000
  1813.  
  1814. xCYCLER 80 40 100 20 "" AUTOPLAY
  1815. CSTR 'Select' "Select"
  1816. CSTR 'OFF' NO
  1817. CSTR 'ON' YES
  1818.  
  1819. xTEXTIN 30 110 220 20 '' GuiPattern '' 200
  1820.        gadid 60
  1821.  
  1822. XTEXTIN 30 180 220 20 '' SKINSELECT '' 200
  1823.        gadid 61
  1824.  
  1825. xTEXTIN 30 260 220 20 '' STARTSOUND '' 200
  1826.        gadid 62
  1827.  
  1828. xTEXTIN 30 300 220 20 '' QUITSOUND '' 200
  1829.        gadid 63
  1830.  
  1831. xBUTTON 190 40 130 20 "Set Personal _Volume"
  1832. guiopen SetVolume
  1833.  
  1834. xBUTTON 260 110 30 20 "Set"
  1835. ReqFile 0 0 200 400 "Choose pattern...." LOAD GuiPattern PLAYGUI:SYS/Patterns/
  1836. Update OptionConfig 60 '$GuiPattern'
  1837.  
  1838. xBUTTON 300 110 30 20 "Test"
  1839. ifexists FILE $GuiPattern
  1840. loadimage $GuiPattern TestPattern Workbench
  1841. guiopen ShowPattern
  1842. else
  1843. ezreq "Cannot find pattern! Maybe wrong path?" "Yep!" yep
  1844. endif
  1845.  
  1846. xBUTTON 260 180 30 20 "Set"
  1847. ReqFile 0 0 200 400 "Choose skin path..." DIR SKINSELECT #PLAYGUI:Skins/
  1848. Update OptionConfig 61 '$SKINSELECT'
  1849.  
  1850. xBUTTON 300 180 30 20 "Test"
  1851. ifexists DIR $SKINSELECT
  1852. assign Skins: $SKINSELECT
  1853. loadimage Skins:main.iff TestSkin Workbench
  1854. guiopen ShowSkin
  1855. else
  1856. ezreq "Cannot find skin!" "Ok" ok
  1857. endif
  1858.  
  1859. xBUTTON 260 260 30 20 "Set"
  1860. ReqFile 0 0 200 400 "Choose Startsound..." LOAD STARTSOUND PlayGUI:SYS/Sounds/
  1861. Update OptionConfig 62 '$STARTSOUND'
  1862.  
  1863. xBUTTON 300 260 30 20 "Test"
  1864. ifexists FILE $STARTSOUND
  1865. CLI 'C:run >NIL: $PLAY16PATH $STARTSOUND'
  1866. else
  1867. ezreq "Cannot find sound!" "I see!" see
  1868. endif
  1869.  
  1870. xBUTTON 260 300 30 20 "Set"
  1871. ReqFile 0 0 200 400 "Choose Quitsound..." LOAD QUITSOUND PLAYGUI:SYS/Sounds/
  1872. Update OptionConfig 63 '$QUITSOUND'
  1873.  
  1874. xBUTTON 300 300 30 20 "Test"
  1875. ifexists FILE $QUITSOUND
  1876. CLI 'C:run >NIL: $PLAY16PATH $QUITSOUND'
  1877. else
  1878. ezreq "Cannot find sound!" "I see!" see
  1879. endif
  1880.  
  1881. xBUTTON 100 360 70 20 "_USE"
  1882. THEME = NO
  1883. gosub OptionConfig ConfigUpdate
  1884.  
  1885. xBUTTON 180 360 70 20 "_OK"
  1886. THEME = NO
  1887. guiclose OptionConfig
  1888. guiopen Voreinstellung
  1889.  
  1890. xROUTINE ConfigUpdate
  1891. freeimage GuiPattern
  1892. loadimage $GuiPattern GuiPattern Workbench
  1893. gosub PlayGUI Wechsel
  1894. guiclose OptionConfig
  1895. guiopen Voreinstellung
  1896.  
  1897. xBUTTON 10 360 80 20 "_Show config"
  1898. Update OptionConfig 60 '$GuiPattern'
  1899. Update OptionConfig 61 '$SKINSELECT'
  1900. Update OptionConfig 62 '$STARTSOUND'
  1901. Update OptionConfig 63 '$QUITSOUND'
  1902.  
  1903. xBUTTON 260 360 80 20 "_Create Theme"
  1904. guiopen ThemeCreate
  1905.  
  1906. ;------------------------------------------
  1907. Newfile ShowPattern
  1908.  
  1909. WINBIG -1 -1 100 100 "SHOWING PATTERN..."
  1910. Wintype 11010000
  1911. WINBACKGROUND IMAGE TestPattern 0
  1912.  
  1913. xONCLOSE
  1914. guiclose ShowPattern
  1915.  
  1916. ;-------------------------------------------------------------------
  1917.  
  1918. Newfile ShowSkin
  1919.  
  1920. WINBIG -1 -1 275 116 "SHOWING SKIN..."
  1921. wintype 11010000
  1922.  
  1923. image 0 0 TestSkin
  1924.  
  1925. xONCLOSE
  1926. guiclose ShowSkin
  1927.  
  1928. ;-------------------------------------------------------------------
  1929.  
  1930. Newfile ThemeCreate
  1931.  
  1932. WINBIG -1 -1 280 110 "CREATE A THEME"
  1933. wintype 11010000
  1934.  
  1935. WINBACKGROUND IMAGE GuiPattern 0
  1936.  
  1937. VARPATH PlayGUI
  1938.  
  1939. xONCLOSE
  1940. guiclose SetVolume
  1941.  
  1942. CTEXT 10 10 "Enter name of Theme..." XHelvetica.font 11 2 -1 00000
  1943.  
  1944. xTEXTIN 10 40 260 20 '' Themename '' 100
  1945.  
  1946. xBUTTON 10 70 80 20 "Create"
  1947. CLI 'C:Makedir PlayGUI:Themes/$Themename'
  1948. CLI 'C:assign ThemeCreation: PlayGUI:Themes/$Themename'
  1949.  
  1950. CLI 'C:Makedir ThemeCreation:Skin'
  1951. CLI 'C:Makedir ThemeCreation:Pattern'
  1952. CLI 'C:Makedir ThemeCreation:Sounds'
  1953. gosub ThemeCreate SavePatternNext
  1954.  
  1955. xROUTINE SavePatternNext
  1956. ifexists FILE $GuiPattern
  1957. gosub ThemeCreate SavePatternNow
  1958. else
  1959. ezreq "Pattern is missing! Cannot create theme!" "Bad!" bad
  1960. endif
  1961.  
  1962. xROUTINE SavePatternNow
  1963. CLI 'C:Copy $GuiPattern to ThemeCreation:Pattern/PGPattern'
  1964. gosub ThemeCreate SaveThemeNextSkin
  1965.  
  1966. xROUTINE SaveThemeNextSkin
  1967. ifexists DIR $SKINSELECT
  1968. gosub ThemeCreate SaveThemeSkinNow
  1969. else
  1970. ezreq "Skin is missing! Cannot create theme!" "Too bad!" bady
  1971. endif
  1972.  
  1973. xROUTINE SaveThemeSkinNow
  1974. assign Skin: $SKINSELECT
  1975. CLI 'C:Copy Skin:main.iff to ThemeCreation:Skin/'
  1976. CLI 'C:Copy Skin:mod_bar to ThemeCreation:Skin/'
  1977. CLI 'C:Copy Skin:volume_bar to ThemeCreation:Skin/'
  1978. CLI 'C:Copy Skin:sample_bar to ThemeCreation:Skin/'
  1979. CLI 'C:Copy Skin:option_bar to ThemeCreation:Skin/'
  1980. gosub ThemeCreate SaveStartSoundNext
  1981.  
  1982. xROUTINE SaveStartSoundNext
  1983. ifexists FILE $STARTSOUND
  1984. gosub ThemeCreate SaveStartSoundNow
  1985. else
  1986. ezreq "Start sound is missing! Cannot create theme!" "Ok Ok!" ok
  1987. endif
  1988.  
  1989. xROUTINE SaveStartSoundNow
  1990. CLI 'C:Copy $STARTSOUND to ThemeCreation:Sounds/SoundStart'
  1991. gosub ThemeCreate SaveQuitSoundNext
  1992.  
  1993. xROUTINE SaveQuitSoundNext
  1994. ifexists FILE $QUITSOUND
  1995. gosub ThemeCreate SaveQuitSoundNow
  1996. else
  1997. ezreq "Quit sound is missing! Cannot create theme!" "Ok!" ok
  1998. endif
  1999.  
  2000. xROUTINE SaveQuitSoundNow
  2001. CLI 'C:Copy $QUITSOUND to ThemeCreation:Sounds/SoundEnd'
  2002. ezreq "Saved theme! Finished!" "Wow!" wow
  2003.  
  2004.  
  2005. xBUTTON 100 70 80 20 "HELP"
  2006. ezreq "Your settings will be used to create a theme in your THEMES dir!" "Ah!" ah
  2007.  
  2008. xBUTTON 190 70 80 20 "Ok"
  2009. guiclose ThemeCreate
  2010.  
  2011. ;-------------------------------------------------------------------
  2012. Newfile SetVolume
  2013.  
  2014. WINBIG -1 -1 50 150 "Set Volume"
  2015. wintype 10000000
  2016.  
  2017. WINBACKGROUND IMAGE GuiPattern 0
  2018.  
  2019. VARPATH PlayGUI
  2020.  
  2021. xONCLOSE
  2022. guiclose SetVolume
  2023.  
  2024.  
  2025. xVSLIDER 15 10 20 100 '' vol2 0 64 0 ''
  2026. Update SetVolume 70 '$vol2'
  2027.  
  2028. TEXT 10 120 30 20 '' 24 BOX
  2029. gadid 70
  2030.  
  2031. ;----------------------------------------------------------------
  2032. Newfile P16Config
  2033.  
  2034. WINBIG -1 -1 200 140 "Play16 Config"
  2035. wintype 11010000
  2036.  
  2037. WINBACKGROUND IMAGE GuiPattern 0
  2038.  
  2039. VARPATH PlayGUI
  2040.  
  2041. xONCLOSE
  2042. guiclose P16Config
  2043. guiopen Voreinstellung
  2044.  
  2045. CTEXT 60 10 "PLAY 16 Options" XHelvetica.font 11 2 -1 00000
  2046. CTEXT 30 42 "LOOP" XHelvetica.font 11 2 -1 00000
  2047. CTEXT 30 67 "FILTER" XHelvetica.font 11 2 -1 00000
  2048. BOX 10 30 180 65 IN RIDGE
  2049.  
  2050. xCYCLER 80 40 100 20 "" P16LOOP
  2051. CSTR "Select" "Select"
  2052. CSTR "ON" YES
  2053. CSTR "OFF" NO
  2054.  
  2055. xCYCLER 80 65 100 20 "" P16FILTER
  2056. CSTR "Select" "Select"
  2057. CSTR "ON" YES
  2058. CSTR "OFF" NO
  2059.  
  2060.  
  2061. xBUTTON 75 110 50 20 "_OK"
  2062. guiclose P16Config
  2063. guiopen Voreinstellung
  2064.  
  2065. ;----------------------------------------------------------------
  2066. Newfile Themes
  2067.  
  2068. WINBIG -1 -1 260 220 "Themes Config"
  2069. wintype 11010000
  2070.  
  2071. WINBACKGROUND IMAGE GuiPattern 0
  2072.  
  2073. VARPATH PlayGUI
  2074.  
  2075. xONCLOSE
  2076. guiclose Themes
  2077. guiopen Voreinstellung
  2078.  
  2079. CTEXT 90 10 "Theme Options" XHelvetica.font 11 2 -1 00000
  2080. CTEXT 20 40 "Choose Theme..." XHelvetica.font 11 2 -1 00000
  2081. BOX 10 30 240 100 IN RIDGE
  2082.  
  2083. GAUGE 10 140 240 20 OUT BUTTON 1 0 0
  2084. gadid 100
  2085.  
  2086. xBUTTON 190 40 50 20 "Show"
  2087. Update Themes 80 '$THEMEPATH'
  2088.  
  2089. xBUTTON 80 95 100 20 "Preview"
  2090. ifexists DIR $THEMEPATH
  2091. assign Themes: $THEMEPATH
  2092. gosub Themes OpenPattern
  2093. else
  2094. ezreq "Cannot find theme dir!" "Ok" ok
  2095. endif
  2096.  
  2097. xRoutine OpenPattern
  2098.  
  2099. ifexists FILE Themes:Pattern/PGpattern
  2100. loadimage Themes:Pattern/PGpattern PrevPattern Workbench
  2101. Update Themes 100 25
  2102. gosub Themes OpenSkin
  2103. else
  2104. ezReq "Cannot find theme element!" "Ok" ok
  2105. endif
  2106.  
  2107. xROUTINE OpenSkin
  2108. ifexists FILE Themes:Skin/main.iff
  2109. loadimage Themes:Skin/main.iff prevskin Workbench
  2110. Update Themes 100 50
  2111. gosub Themes OpenQuitSound
  2112. else
  2113. ezreq "Cannot find skin!" "Ok" ok
  2114. endif
  2115.  
  2116. xROUTINE OpenQuitSound
  2117. ifexists FILE Themes:Sounds/SoundEnd
  2118. Update Themes 100 75
  2119. gosub Themes OpenStartSound
  2120. else
  2121. ezreq "Cannot find quit sound" "Ok" ok
  2122. endif
  2123.  
  2124. xROUTINE OpenStartSound
  2125. ifexists FILE Themes:Sounds/SoundStart
  2126. Update Themes 100 100
  2127. guiopen Preview
  2128. else
  2129. ezreq "Cannot find start sound!" "Ok" ok
  2130. endif
  2131.  
  2132. xTEXTIN 20 65 160 20 '' THEMEPATH '' 200
  2133. gadid 80
  2134.  
  2135. xBUTTON 190 65 50 20 "Set"
  2136.  
  2137. ReqFile 0 0 200 400 "Choose theme dir..." DIR THEMEPATH #PLAYGUI:Themes/
  2138. Update Themes 80 '$THEMEPATH'
  2139.  
  2140. xBUTTON 45 180 60 20 "_USE"
  2141. gosub PlayGUI OpenTheme
  2142. guiclose Themes
  2143. guiopen Voreinstellung
  2144.  
  2145. xBUTTON 145 180 60 20 "_CANCEL"
  2146. THEME = NO
  2147. guiclose Themes
  2148. guiopen Voreinstellung
  2149. ;----------------------------------------------------------------
  2150.  
  2151. Newfile Preview
  2152.  
  2153. WINBIG -1 -1 275 240 "PREVIEW"
  2154. wintype 11010000
  2155. WINBACKGROUND IMAGE PrevPattern 0
  2156. VARPATH PlayGUI
  2157.  
  2158. xONLOAD
  2159.  
  2160. image 0 0 prevskin
  2161.  
  2162. xButton 5 200 130 20 "Test Startsound"
  2163. CLI 'C:run >NIL: $PLAY16PATH Themes:Sounds/SoundStart'
  2164.  
  2165. xButton 140 200 130 20 "Test Quitsound"
  2166. CLI 'C:run >NIL: $PLAY16PATH Themes:Sounds/SoundEnd'
  2167.  
  2168. xONCLOSE
  2169. freesound prevend
  2170. freesound prevstart
  2171. freeimage prevskin
  2172. freeimage PrevPattern
  2173. guiclose Preview
  2174.  
  2175. ;----------------------------------------------------------------
  2176. Newfile PathConfig
  2177.  
  2178. WINBIG -1 -1 350 400 "Path Config"
  2179. wintype 11010001
  2180.  
  2181. WINBACKGROUND IMAGE GuiPattern 0
  2182.  
  2183. VARPATH PlayGUI
  2184.  
  2185. xONCLOSE
  2186. guiclose PathConfigConfig
  2187. guiopen Voreinstellung
  2188.  
  2189. CTEXT 130 360 "* Select PATH + FILE here" XHelvetica.font 11 2 -1 00000
  2190.  
  2191. xBUTTON 10 360 100 20 "Show config"
  2192. Update PathConfig 50 $HIPPOPATH
  2193. Update PathConfig 51 $PLAY16PATH
  2194. Update PathConfig 52 $MODPATH
  2195. Update PathConfig 53 $SAMPLEPATH
  2196. Update PathConfig 54 $PLONEPATH
  2197. Update PathConfig 55 $LAUNCHPATH
  2198. Update PathConfig 56 $SCOPEPATH
  2199. Update PathConfig 57 $COPYPATH
  2200. Update PathConfig 58 $COPYPATH2
  2201. Update PathConfig 59 $YAMPATH
  2202. Update PathConfig 60 $BROWSERPATH
  2203.  
  2204.  
  2205. CText 5 10 "Path Config" XHelvetica.font 11 2 -1 00000
  2206.  
  2207. xBUTTON 280 40 60 20 "Select.."
  2208. ReqFile 0 0 200 400 "Choose hippo path..." LOAD HIPPOPATH RAM:
  2209. Update PathConfig 50 $HIPPOPATH
  2210.  
  2211. xBUTTON 280 65 60 20 "Select.."
  2212. ReqFile 0 0 200 400 "Choose play16 path..." LOAD PLAY16PATH RAM:
  2213. Update PathConfig 51 $PLAY16PATH
  2214.  
  2215. xBUTTON 280 90 60 20 "Select.."
  2216. ReqFile 0 0 200 400 "Choose mod path..." LOAD MODPATH RAM:
  2217. Update PathConfig 52 $MODPATH
  2218.  
  2219. xBUTTON 280 115 60 20 "Select.."
  2220. ReqFile 0 0 200 400 "Choose sample path..." LOAD SAMPLEPATH RAM:
  2221. Update PathConfig 53 $SAMPLEPATH
  2222.  
  2223. xBUTTON 280 140 60 20 "Select.."
  2224. ReqFile 0 0 200 400 "Choose plone path..." LOAD PLONEPATH RAM:
  2225. Update PathConfig 54 $PLONEPATH
  2226.  
  2227. xBUTTON 280 165 60 20 "Select.."
  2228. ReqFile 0 0 200 400 "Choose launch path..." LOAD LAUNCHPATH RAM:
  2229. Update PathConfig 55 $LAUNCHPATH
  2230.  
  2231. xBUTTON 280 190 60 20 "Select.."
  2232. ReqFile 0 0 200 400 "Choose scope path..." LOAD SCOPEPATH RAM:
  2233. Update PathConfig 56 $SCOPEPATH
  2234.  
  2235. xBUTTON 280 215 60 20 "Select.."
  2236. ReqFile 0 0 200 400 "Choose mod copy path..." LOAD COPYPATH RAM:
  2237. Update PathConfig 57 $COPYPATH
  2238.  
  2239. xBUTTON 280 240 60 20 "Select.."
  2240. ReqFile 0 0 200 400 "Choose sample copy path..." LOAD COPYPATH2 RAM:
  2241. Update PathConfig 58 $COPYPATH2
  2242.  
  2243. xBUTTON 280 265 60 20 "Select.."
  2244. ReqFile 0 0 200 400 "Choose yam path..." LOAD YAMPATH RAM:
  2245. Update PathConfig 59 $YAMPATH
  2246.  
  2247. xBUTTON 280 290 60 20 "Select.."
  2248. ReqFile 0 0 200 400 "Choose browser path..." LOAD BROWSERPATH RAM:
  2249. Update PathConfig 60 $BROWSERPATH
  2250.  
  2251. CTEXT 20 43 "HIPPO path*" XHelvetica.font 11 2 -1 00000
  2252. CTEXT 20 68 "Play16 path*" XHelvetica.font 11 2 -1 00000
  2253. CTEXT 20 93 "MOD path" XHelvetica.font 11 2 -1 00000
  2254. CTEXT 20 118 "SAMPLE path" XHelvetica.font 11 2 -1 00000
  2255. CTEXT 20 143 "PLONE path" XHelvetica.font 11 2 -1 00000
  2256. CTEXT 20 168 "LAUNCH path" XHelvetica.font 11 2 -1 00000
  2257. CTEXT 20 193 "SCOPE path" XHelvetica.font 11 2 -1 00000
  2258. CTEXT 20 218 "MODCOPY path" XHelvetica.font 11 2 -1 00000
  2259. CTEXT 20 243 "SAMPLECOPY path" XHelvetica.font 11 2 -1 00000
  2260. CTEXT 20 268 "YAM path*" XHelvetica.font 11 2 -1 00000
  2261. CTEXT 20 293 "BROWSER path*" XHelvetica.font 11 2 -1 00000
  2262.  
  2263. XTEXTIN 130 40 140 20 '' HIPPOPATH '' 200
  2264.        gadid 50
  2265.  
  2266. XTEXTIN 130 65 140 20 '' PLAY16PATH '' 200
  2267.        gadid 51
  2268.  
  2269. XTEXTIN 130 90 140 20 '' MODPATH '' 200
  2270.        gadid 52
  2271.  
  2272. XTEXTIN 130 115 140 20 '' SAMPLEPATH '' 200
  2273.        gadid 53
  2274.  
  2275. XTEXTIN 130 140 140 20 '' PLONEPATH '' 200
  2276.        gadid 54
  2277.  
  2278. XTEXTIN 130 165 140 20 '' LAUNCHPATH '' 200
  2279.        gadid 55
  2280.  
  2281. XTEXTIN 130 190 140 20 '' SCOPEPATH '' 200
  2282.        gadid 56
  2283.  
  2284. XTEXTIN 130 215 140 20 '' COPYPATH '' 200
  2285.        gadid 57
  2286.  
  2287. XTEXTIN 130 240 140 20 '' COPYPATH2 '' 200
  2288.        gadid 58
  2289.  
  2290. XTEXTIN 130 265 140 20 '' YAMPATH '' 200
  2291.        gadid 59
  2292.  
  2293. XTEXTIN 130 290 140 20 '' BROWSERPATH '' 200
  2294.        gadid 60
  2295.  
  2296. xBUTTON 300 360 40 20 "_OK"
  2297. guiclose PathConfig
  2298. guiopen Voreinstellung
  2299.  
  2300. xRoutine SavePaths
  2301. SET BUFFERS 4000
  2302.  
  2303. .PlayGUIconfig = 'G4C\n\nxOnLoad\n'
  2304.  
  2305. appvar .PlayGUIconfig '\nPlayGUI/HIPPOPATH = $HIPPOPATH'
  2306. appvar .PlayGUIconfig '\nPlayGUI/PLAY16PATH = $PLAY16PATH'
  2307. appvar .PlayGUIconfig '\nPlayGUI/MODPATH = $MODPATH'
  2308. appvar .PlayGUIconfig '\nPlayGUI/SAMPLEPATH = $SAMPLEPATH'
  2309. appvar .PlayGUIconfig '\nPlayGUI/SKINSELECT = $SKINSELECT'
  2310. appvar .PlayGUIconfig '\nPlayGUI/PLONEPATH = $PLONEPATH'
  2311. appvar .PlayGUIconfig '\nPlayGUI/LAUNCHPATH = $LAUNCHPATH'
  2312. appvar .PlayGUIconfig '\nPlayGUI/SCOPEPATH = $SCOPEPATH'
  2313. appvar .PlayGUIconfig '\nPlayGUI/COPYPATH = $COPYPATH'
  2314. appvar .PlayGUIconfig '\nPlayGUI/COPYPATH2 = $COPYPATH2'
  2315. appvar .PlayGUIconfig '\nPlayGUI/YAMPATH = $YAMPATH'
  2316. appvar .PlayGUIconfig '\nPlayGUI/BROWSERPATH = $BROWSERPATH'
  2317. appvar .PlayGUIconfig '\nPlayGUI/AUTOPLAY = $AUTOPLAY'
  2318. appvar .PlayGUIconfig '\nPlayGUI/PLONESTART = $PLONESTART'
  2319. appvar .PlayGUIconfig '\nPlayGUI/STARTMODINFO = $STARTMODINFO'
  2320. appvar .PlayGUIconfig '\nPlayGUI/P16LOOP = $P16LOOP'
  2321. appvar .PlayGUIconfig '\nPlayGUI/P16FILTER = $P16FILTER'
  2322. appvar .PlayGUIconfig '\nPlayGUI/vol2 = $vol2'
  2323. appvar .PlayGUIconfig '\nPlayGUI/GuiPattern = $GuiPattern'
  2324. appvar .PlayGUIconfig '\nPlayGUI/STARTSOUND = $STARTSOUND'
  2325. appvar .PlayGUIconfig '\nPlayGUI/QUITSOUND = $QUITSOUND'
  2326. appvar .PlayGUIconfig '\nPlayGUI/THEME = $THEME'
  2327. appvar .PlayGUIconfig '\nPlayGUI/THEMEPATH = $THEMEPATH'
  2328. appvar .PlayGUIconfig '\nPlayGUI/TQUITSOUND = $TQUITSOUND'
  2329. appvar .PlayGUIconfig '\nPlayGUI/TSTARTSOUND = $TSTARTSOUND'
  2330. appvar .PlayGUIconfig '\nGuiQuit #This'
  2331.  
  2332. copy env:.PlayGUIconfig PLAYGUI:SYS/PlayGUIconfig
  2333.  
  2334. ezreq "Config saved!" "Thanx!" thanx
  2335.  
  2336.  
  2337.  
  2338.